home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
madhouse
/
install&remove
/
remove
< prev
next >
Wrap
Text File
|
1997-12-30
|
2KB
|
87 lines
; Remove-Installer script for Madhouse V2.12
(complete 0)
(set #mainprgsource "Madhouse")
(set #mainprgdest "SYS:WBStartup")
(if (= @language "deutsch") (
(set #intro
(cat "Madhouse wieder entfernen? Schade!\nBitte schreibt uns, wenn Ihr Kritik habt. "
"Wir wären Euch sehr dankbar.\n\nMit Proceed geht's dann los." ))
(set #extro
(cat "Das war's dann!\n"))
))
(if (<> @language "deutsch") (
(set #intro
(cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
"Thankyou."))
(set #extro
(cat "Okay, that was it!\n" ))
))
(message #intro)
(run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
(set #gtt (pathonly (getenv "Gettooltype")) )
(delete "ENV:Gettooltype")
(message #gtt)
(delete "LIBS:madblankersupport.library")
(complete 5)
(delete "ENV:Madhouse.prefs")
(complete 10)
(delete "ENVARC:Madhouse.prefs")
(complete 15)
(delete "SYS:WBStartup/Madhouse")
(delete "SYS:WBStartup/Madhouse.info")
(delete "SYS:WBStartup/WBStartup (Enabled)/Madhouse")
(delete "SYS:WBStartup/WBStartup (Enabled)/Madhouse.info")
(delete "SYS:WBStartup/WBStartup (Disabled)/Madhouse")
(delete "SYS:WBStartup/WBStartup (Disabled)/Madhouse.info")
(delete "SYS:Startup/Madhouse")
(delete "SYS:Startup/Madhouse.info")
(complete 25)
(if (> (/ (getversion) 65536) 37)
(
(if (<> @language "English" ) (
(delete "Locale:Catalogs/deutsch/madhouse.catalog")
(complete 60)
(delete "Locale:Catalogs/deutsch/madhousebg.catalog")
))
)
)
(complete 30)
(delete (tackon #gtt "Anleitung.guide"))
(delete (tackon #gtt "Anleitung.guide.info"))
(delete (tackon #gtt "MadhouseD.guide"))
(delete (tackon #gtt "MadhouseD.guide.info"))
(delete (tackon #gtt "Doc.guide"))
(delete (tackon #gtt "Doc.guide.info"))
(delete (tackon #gtt "MadhouseE.guide"))
(delete (tackon #gtt "MadhouseE.guide.info"))
(delete (tackon #gtt "Registration_E.txt"))
(delete (tackon #gtt "Registration_E.txt.info"))
(delete (tackon #gtt "Registration_D.txt"))
(delete (tackon #gtt "Registration_D.txt.info"))
(complete 40)
(run ("delete %s ALL" (tackon #gtt "Blankers")))
(run ("delete %s ALL" (tackon #gtt "ImportHelp")))
(complete 100)
(message #extro)